#! /usr/bin/env perl
# author: maxiao
# date: 2023-03-07 14:33
# description: 定义子程序，实现一个返回两数中的最大值

use utf8;

# 定义子程序
sub max_num {
    my($m, $n) = @_;
    if ($m > $n) { $m } else { $n }
}

# 调用
$result_1 = &max_num(23, 30);
$result_2 = &max_num(99, -98);
print "result_1 ---> $result_1\n";
print "result_2 ---> $result_2\n";

